
###########################################
# Item Response Theory: Model specification
###########################################

# Exploratory : Fitting IRT models ---------------------------------------------
mEA_yes_pos <- mirt(EA_yes_pos, 1, itemtype = "graded") # model for interested positive id
mEA_yes_neg <- mirt(EA_yes_neg, 1, itemtype = "graded") # model for interested negative id
mEA_no_pos <- mirt(EA_no_pos, 1, itemtype = "graded") # model for uninterested positive id
mEA_no_neg <- mirt(EA_no_neg, 1, itemtype = "graded") # model for uninterested negative id

# Confirmatory : Fitting IRT models --------------------------------------------
mCA_yes_pos <- mirt(CA_yes_pos, 1, itemtype = "graded") # model for interested positive id
mCA_yes_neg <- mirt(CA_yes_neg, 1, itemtype = "graded") # model for interested negative id
mCA_no_pos <- mirt(CA_no_pos, 1, itemtype = "graded") # model for uninterested positive id
mCA_no_neg <- mirt(CA_no_neg, 1, itemtype = "graded") # model for uninterested negative id


